home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
Q3.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
7KB
|
244 lines
0 HOME
100 HGR : HCOLOR= 3
110 REM 1st ap
112 X% = 40:Y% = 25
114 GOSUB 9800
116 HPLOT 30,5 TO 30,50
118 HPLOT 31,5 TO 31,50
120 HPLOT 66,5 TO 66,50
122 HPLOT 67,5 TO 67,50
124 X% = 46:Y% = 60
126 GOSUB 10000
128 HPLOT 52,60
150 REM 2nd ap
152 X% = 170:Y% = 25
154 GOSUB 9800
156 HPLOT 150,50 TO 178,5 TO 210,50
158 HPLOT 149,50 TO 177,5 TO 209,50
160 X% = 176:Y% = 60
162 GOSUB 11200
164 HPLOT 182,60
200 REM 3rd ap
202 X% = 40:Y% = 100
204 GOSUB 9800
206 HPLOT 10,115 TO 47,88 TO 84,115
208 HPLOT 9,115 TO 47,87 TO 85,115
210 X% = 46:Y% = 135
212 GOSUB 10050
214 HPLOT 52,135
230 REM 4th ap
232 X% = 170:Y% = 100
234 GOSUB 9800
236 HPLOT 135,100 TO 175,88
238 HPLOT 134,100 TO 174,88 TO 210,88
240 HPLOT 174,89 TO 210,89
242 X% = 178:Y% = 135
244 GOSUB 10100
246 HPLOT 184,135
500 REM ?
501 PRINT : PRINT
502 VTAB (21): PRINT "Which of these mirrors will project an infinite number of apples?"
504 GET KY$: CALL 62450
510 REM replies
512 IF KY$ = "a" OR KY$ = "A" THEN GOSUB 6000
516 IF KY$ = "b" OR KY$ = "B" OR KY$ = "c" OR KY$ = "C" OR KY$ = "d" OR KY$ = "D" THEN GOSUB 6050
520 PRINT : PRINT
522 PRINT "Please enter <a>, <b>, <c>, or <d> only."
524 FOR I = 0 TO 700
526 J = 1
528 NEXT I
530 GOTO 0
5000 END
6000 HOME : TEXT
6002 PRINT
6004 PRINT "You're RIGHT!! Press any key for more questions."
6006 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
6008 PRINT CHR$(4);"run q4"
6010 RETURN
6050 HOME : TEXT
6052 PRINT
6054 PRINT "Sorry, choose another answer."
6056 PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT
6058 FOR I = 0 TO 800
6060 J = 1
6062 NEXT I
6064 GOTO 0
9800 REM draw ap
9802 HPLOT X% +3,Y% TO X% +4,Y%
9804 HPLOT X% +3,Y% +1 TO X% +5,Y% +1
9806 HPLOT X% +10,Y% +1 TO X% +11,Y% +1
9808 HPLOT X% +3,Y% +2 TO X% +6,Y% +2
9810 HPLOT X% +10,Y% +2 TO X% +11,Y% +2
9812 HPLOT X% +4,Y% +3 TO X% +7,Y% +3
9814 HPLOT X% +9,Y% +3 TO X% +10,Y% +3
9816 HPLOT X% +4,Y% +4 TO X% +10,Y% +4
9818 HPLOT X% +1,Y% +5 TO X% +16,Y% +5
9820 HPLOT X%,Y% +6 TO X% +17,Y% +6
9822 HPLOT X%,Y% +7 TO X% +17,Y% +7
9824 HPLOT X%,Y% +8 TO X% +17,Y% +8
9826 HPLOT X%,Y% +9 TO X% +17,Y% +9
9828 HPLOT X% +1,Y% +10 TO X% +16,Y% +10
9830 HPLOT X% +1,Y% +11 TO X% +16,Y% +11
9832 HPLOT X% +1,Y% +12 TO X% +16,Y% +12
9834 HPLOT X% +2,Y% +13 TO X% +15,Y% +13
9836 HPLOT X% +2,Y% +14 TO X% +15,Y% +14
9838 HPLOT X% +3,Y% +15 TO X% +14,Y% +15
9840 HPLOT X% +4,Y% +16 TO X% +13,Y% +16
9842 HPLOT X% +5,Y% +17 TO X% +7,Y% +17
9844 HPLOT X% +10,Y% +17 TO X% +12,Y% +17
9850 RETURN
9999 REM a
10000 HPLOT X%,Y% -1
10010 HPLOT X% +1,Y% TO X% +2,Y%
10020 HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10030 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10040 HPLOT X% +3,Y% TO X% +3,Y% -3
10041 RETURN
10049 REM c
10050 HPLOT X%,Y% -1 TO X%,Y% -3
10060 HPLOT X% +1,Y% TO X% +3,Y%
10070 HPLOT X% +1,Y% -4 TO X% +3,Y% -4
10071 RETURN
10099 REM d
10100 HPLOT X%,Y% -1 TO X%,Y% -3
10110 HPLOT X% +1,Y% TO X% +2,Y%
10120 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10130 HPLOT X% +3,Y% TO X% +3,Y% -6
10131 RETURN
10149 REM e
10150 HPLOT X%,Y% -1 TO X%,Y% -3
10160 HPLOT X% +1,Y% TO X% +3,Y%
10170 HPLOT X% +1,Y% -2 TO X% +2,Y% -2
10180 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10190 HPLOT X% +3,Y% -3
10191 RETURN
10199 REM f
10200 HPLOT X%,Y% -3 TO X% +2,Y% -3
10210 HPLOT X% +1,Y% TO X% +1,Y% -5
10220 HPLOT X% +2,Y% -6 TO X% +3,Y% -6
10221 RETURN
10249 REM g
10250 HPLOT X%,Y% -1 TO X%,Y% -3
10260 HPLOT X% +1,Y% TO X% +2,Y%
10270 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10280 HPLOT X% +3,Y% +2 TO X% +3,Y% -3
10290 HPLOT X% +1,Y% +3 TO X% +2,Y% +3
10291 RETURN
10299 REM h
10300 HPLOT X%,Y% TO X%,Y% -6
10310 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10320 HPLOT X% +3,Y% TO X% +3,Y% -3
10321 RETURN
10349 REM i
10350 HPLOT X%,Y% TO X%,Y% -3
10360 HPLOT X%,Y% -5
10361 RETURN
10399 REM l
10400 HPLOT X%,Y% TO X%,Y% -6
10401 RETURN
10449 REM n
10450 HPLOT X%,Y% TO X%,Y% -4
10460 HPLOT X% +1,Y% -3
10470 HPLOT X% +2,Y% -4
10480 HPLOT X% +3,Y% TO X% +3,Y% -3
10481 RETURN
10499 REM o
10500 HPLOT X%,Y% -1 TO X%,Y% -3
10510 HPLOT X% +1,Y% TO X% +2,Y%
10520 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10530 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10531 RETURN
10549 REM p
10550 HPLOT X%,Y% +3 TO X%,Y% -4
10560 HPLOT X% +1,Y% TO X% +2,Y%
10570 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
10580 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
10581 RETURN
10599 REM r
10600 HPLOT X%,Y% TO X%,Y% -4
10610 HPLOT X% +1,Y% -3
10620 HPLOT X% +2,Y% -4 TO X% +3,Y% -4
10621 RETURN
10649 REM t
10650 HPLOT X%,Y% -4
10660 HPLOT X% +1,Y% TO X% +1,Y% -6
10670 HPLOT X% +2,Y% -4
10671 RETURN
10699 REM u
10700 HPLOT X%,Y% -1 TO X%,Y% -4
10710 HPLOT X% +1,Y%
10720 HPLOT X% +2,Y% -1
10730 HPLOT X% +3,Y% TO X% +3,Y% -4
10731 RETURN
10899 REM A
10900 HPLOT X%,Y% TO X%,Y% -4
10910 HPLOT X% +1,Y% -5 TO X% +2,Y% -6
10920 HPLOT X% +3,Y% -5
10930 HPLOT X% +1,Y% -2 TO X% +3,Y% -2
10940 HPLOT X% +4,Y% TO X% +4,Y% -4
10941 RETURN
10949 REM I
10950 HPLOT X% +1,Y% TO X% +3,Y%
10960 HPLOT X% +2,Y% -1 TO X% +2,Y% -5
10970 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
10971 RETURN
10999 REM L
11000 HPLOT X%,Y% TO X%,Y% -6
11010 HPLOT X% +1,Y% TO X% +4,Y%
11011 RETURN
11049 REM M
11050 HPLOT X%,Y% TO X%,Y% -6
11060 HPLOT X% +1,Y% -5
11070 HPLOT X% +2,Y% -3 TO X% +2,Y% -5
11080 HPLOT X% +3,Y% -5
11090 HPLOT X% +4,Y% TO X% +4,Y% -6
11091 RETURN
11099 REM R
11100 HPLOT X%,Y% TO X%,Y% -6
11110 HPLOT X% +1,Y% -3 TO X% +3,Y% -3
11120 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11130 HPLOT X% +4,Y% -4 TO X% +4,Y% -5
11140 HPLOT X% +4,Y% TO X% +2,Y% -2
11141 RETURN
11149 REM C
11150 HPLOT X%,Y% -1 TO X%,Y% -5
11160 HPLOT X% +1,Y% TO X% +3,Y%
11170 HPLOT X% +1,Y% -6 TO X% +3,Y% -6
11180 HPLOT X% +4,Y% -5
11190 HPLOT X% +4,Y% -1
11191 RETURN
11199 REM b
11200 HPLOT X%,Y% TO X%,Y% -6
11210 HPLOT X% +1,Y% TO X% +2,Y%
11230 HPLOT X% +1,Y% -4 TO X% +2,Y% -4
11240 HPLOT X% +3,Y% -1 TO X% +3,Y% -3
11241 RETURN
11249 REM 3
11250 HPLOT X%,Y% TO X% +2,Y%
11260 HPLOT X%,Y% -6 TO X% +2,Y% -6
11270 HPLOT X% +1,Y% -3 TO X% +2,Y% -3
11280 HPLOT X% +3,Y% -1 TO X% +3,Y% -2
11290 HPLOT X% +3,Y% -4 TO X% +3,Y% -5
11291 RETURN
11299 REM 0
11300 HPLOT X% +1,Y% TO X% +2,Y%
11310 HPLOT X%,Y% -1 TO X%,Y% -5
11320 HPLOT X% +1,Y% -6 TO X% +2,Y% -6
11330 HPLOT X% +3,Y% -1 TO X% +3,Y% -5
11331 RETURN
11349 REM 9
11350 HPLOT X%,Y% -4 TO X%,Y% -5
11360 HPLOT X% +1,Y% -3 TO X% +2,Y% -3
11370 HPLOT X% +1,Y% -6 TO X% +2,Y% -6
11380 HPLOT X% +3,Y% TO X% +3,Y% -5
11381 RETURN
11399 REM =
11400 HPLOT X%,Y% -1 TO X% +3,Y% -1
11410 HPLOT X%,Y% -3 TO X% +3,Y% -3
11411 RETURN
11449 REM degree sign
11450 HPLOT X%,Y% -5
11460 HPLOT X% +1,Y% -4
11470 HPLOT X% +1,Y% -6
11480 HPLOT X% +2,Y% -5
11481 RETURN